Imports CapaDeDatos
Public Class nAfectacionOperador
    Private TblAfectacionOperador As CapaDeDatos.dAfectacionOperador = New CapaDeDatos.dAfectacionOperador
    Private tblOperadores As CapaDeNegocios.nPersonal = New CapaDeNegocios.nPersonal
    Public Function Insertar(ByVal CodigoOrdenServicio As Long, ByVal legajo As Long, ByVal AfectacionDesde As Date, ByVal AfectacionHasta As Date) As Boolean
        Return TblAfectacionOperador.Insertar(CodigoOrdenServicio, legajo, AfectacionDesde, AfectacionHasta)
    End Function
    Public Function Listar() As DataSet
        Return TblAfectacionOperador.Listar()
    End Function
    Public Function Modificar(ByVal CodigoOrdenServicio As Long, ByVal legajo As Long, ByVal AfectacionDesde As Date, ByVal AfectacionHasta As Date) As Boolean
        Return TblAfectacionOperador.Modificar(CodigoOrdenServicio, legajo, AfectacionDesde, AfectacionHasta)
    End Function
    Public Function Eliminar(ByVal CodigoOrdenServicio As Integer) As Boolean
        Return TblAfectacionOperador.Eliminar(CodigoOrdenServicio)
    End Function

    Public Function Buscar(ByVal CodigoOrdenServicio As Long, ByVal legajo As Long, ByVal AfectacionDesde As Date, ByVal AfectacionHasta As Date) As DataSet
        Return TblAfectacionOperador.Buscar(CodigoOrdenServicio, legajo, AfectacionDesde, AfectacionHasta)
    End Function
    Public Function OperadoresAfectados(ByVal CodigoOrdenServicio As Long, ByVal legajo As Long, ByVal AfectacionDesde As Date, ByVal AfectacionHasta As Date) As DataSet
        Return TblAfectacionOperador.ListarOPeradoresAfectados(CodigoOrdenServicio, legajo, AfectacionDesde, AfectacionHasta)
    End Function
    Public Function ListarOperadoresDisponibles() As DataSet
        Dim Operadores As DataSet
        Dim legajo As Integer
        Dim Nombre As String
        Dim OperadoresDisponibles As DataSet = New DataSet
        OperadoresDisponibles.Tables.Add("T")
        OperadoresDisponibles.Tables(0).Columns.Add("NombreApellido")
        OperadoresDisponibles.Tables(0).Columns.Add("legajo")




        Dim row As DataRow
        Operadores = tblOperadores.ListarNombres(0, "")

        For Each row1 As DataRow In Operadores.Tables(0).Rows
            legajo = row1("Legajo")
            Nombre = row1("NombreApellido")
            If Not (TblAfectacionOperador.Existe(legajo)) Then
                row = OperadoresDisponibles.Tables(0).NewRow
                row("Legajo") = legajo
                row("NombreApellido") = Nombre
                OperadoresDisponibles.Tables(0).Rows.Add(row)


            End If

        Next

        Return OperadoresDisponibles
    End Function

End Class
